sdk/samples/all in on code/Visual Studio 2010/VBAzureXbap/XbapClient/Service References/DataCenterServiceReference/Reference.vb

   1 '------------------------------------------------------------------------------
   2 ' <auto-generated>
   3 '     This code was generated by a tool.
   4 '     Runtime Version:4.0.30319.1
   5 '
   6 '     Changes to this file may cause incorrect behavior and will be lost if
   7 '     the code is regenerated.
   8 ' </auto-generated>
   9 '------------------------------------------------------------------------------
  10
  11 Option Strict On
  12 Option Explicit On
  13
  14 Imports System
  15 Imports System.Runtime.Serialization
  16
  17 Namespace DataCenterServiceReference
  18
  19     <System.Diagnostics.DebuggerStepThroughAttribute(),  _
  20      System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"),  _
  21      System.Runtime.Serialization.DataContractAttribute(Name:="DataCenter", [Namespace]:="http://schemas.datacontract.org/2004/07/WCFServiceWebRole"),  _
  22      System.SerializableAttribute()>  _
  23     Partial Public Class DataCenter
  24         Inherits Object
  25         Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged
  26
  27         <System.NonSerializedAttribute()>  _
  28         Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject
  29
  30         <System.Runtime.Serialization.OptionalFieldAttribute()>  _
  31         Private BoundField As DataCenterServiceReference.Rect
  32
  33         <System.Runtime.Serialization.OptionalFieldAttribute()>  _
  34         Private NameField As String
  35
  36         <Global.System.ComponentModel.BrowsableAttribute(false)>  _
  37         Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData
  38             Get
  39                 Return Me.extensionDataField
  40             End Get
  41             Set
  42                 Me.extensionDataField = value
  43             End Set
  44         End Property
  45
  46         <System.Runtime.Serialization.DataMemberAttribute()>  _
  47         Public Property Bound() As DataCenterServiceReference.Rect
  48             Get
  49                 Return Me.BoundField
  50             End Get
  51             Set
  52                 If (Object.ReferenceEquals(Me.BoundField, value) <> true) Then
  53                     Me.BoundField = value
  54                     Me.RaisePropertyChanged("Bound")
  55                 End If
  56             End Set
  57         End Property
  58
  59         <System.Runtime.Serialization.DataMemberAttribute()>  _
  60         Public Property Name() As String
  61             Get
  62                 Return Me.NameField
  63             End Get
  64             Set
  65                 If (Object.ReferenceEquals(Me.NameField, value) <> true) Then
  66                     Me.NameField = value
  67                     Me.RaisePropertyChanged("Name")
  68                 End If
  69             End Set
  70         End Property
  71
  72         Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
  73
  74         Protected Sub RaisePropertyChanged(ByVal propertyName As String)
  75             Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
  76             If (Not (propertyChanged) Is Nothing) Then
  77                 propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
  78             End If
  79         End Sub
  80     End Class
  81
  82     <System.Diagnostics.DebuggerStepThroughAttribute(),  _
  83      System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"),  _
  84      System.Runtime.Serialization.DataContractAttribute(Name:="Rect", [Namespace]:="http://schemas.datacontract.org/2004/07/WCFServiceWebRole"),  _
  85      System.SerializableAttribute()>  _
  86     Partial Public Class Rect
  87         Inherits Object
  88         Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged
  89
  90         <System.NonSerializedAttribute()>  _
  91         Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject
  92
  93         <System.Runtime.Serialization.OptionalFieldAttribute()>  _
  94         Private HeightField As Double
  95
  96         <System.Runtime.Serialization.OptionalFieldAttribute()>  _
  97         Private WidthField As Double
  98
  99         <System.Runtime.Serialization.OptionalFieldAttribute()>  _
 100         Private XField As Double
 101
 102         <System.Runtime.Serialization.OptionalFieldAttribute()>  _
 103         Private YField As Double
 104
 105         <Global.System.ComponentModel.BrowsableAttribute(false)>  _
 106         Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData
 107             Get
 108                 Return Me.extensionDataField
 109             End Get
 110             Set
 111                 Me.extensionDataField = value
 112             End Set
 113         End Property
 114
 115         <System.Runtime.Serialization.DataMemberAttribute()>  _
 116         Public Property Height() As Double
 117             Get
 118                 Return Me.HeightField
 119             End Get
 120             Set
 121                 If (Me.HeightField.Equals(value) <> true) Then
 122                     Me.HeightField = value
 123                     Me.RaisePropertyChanged("Height")
 124                 End If
 125             End Set
 126         End Property
 127
 128         <System.Runtime.Serialization.DataMemberAttribute()>  _
 129         Public Property Width() As Double
 130             Get
 131                 Return Me.WidthField
 132             End Get
 133             Set
 134                 If (Me.WidthField.Equals(value) <> true) Then
 135                     Me.WidthField = value
 136                     Me.RaisePropertyChanged("Width")
 137                 End If
 138             End Set
 139         End Property
 140
 141         <System.Runtime.Serialization.DataMemberAttribute()>  _
 142         Public Property X() As Double
 143             Get
 144                 Return Me.XField
 145             End Get
 146             Set
 147                 If (Me.XField.Equals(value) <> true) Then
 148                     Me.XField = value
 149                     Me.RaisePropertyChanged("X")
 150                 End If
 151             End Set
 152         End Property
 153
 154         <System.Runtime.Serialization.DataMemberAttribute()>  _
 155         Public Property Y() As Double
 156             Get
 157                 Return Me.YField
 158             End Get
 159             Set
 160                 If (Me.YField.Equals(value) <> true) Then
 161                     Me.YField = value
 162                     Me.RaisePropertyChanged("Y")
 163                 End If
 164             End Set
 165         End Property
 166
 167         Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
 168
 169         Protected Sub RaisePropertyChanged(ByVal propertyName As String)
 170             Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
 171             If (Not (propertyChanged) Is Nothing) Then
 172                 propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
 173             End If
 174         End Sub
 175     End Class
 176
 177     <System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"),  _
 178      System.ServiceModel.ServiceContractAttribute(ConfigurationName:="DataCenterServiceReference.IDataCenterService")>  _
 179     Public Interface IDataCenterService
 180
 181         <System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDataCenterService/GetDataCenters", ReplyAction:="http://tempuri.org/IDataCenterService/GetDataCentersResponse")>  _
 182         Function GetDataCenters() As DataCenterServiceReference.DataCenter()
 183
 184         <System.ServiceModel.OperationContractAttribute(AsyncPattern:=true, Action:="http://tempuri.org/IDataCenterService/GetDataCenters", ReplyAction:="http://tempuri.org/IDataCenterService/GetDataCentersResponse")>  _
 185         Function BeginGetDataCenters(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
 186
 187         Function EndGetDataCenters(ByVal result As System.IAsyncResult) As DataCenterServiceReference.DataCenter()
 188     End Interface
 189
 190     <System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0")>  _
 191     Public Interface IDataCenterServiceChannel
 192         Inherits DataCenterServiceReference.IDataCenterService, System.ServiceModel.IClientChannel
 193     End Interface
 194
 195     <System.Diagnostics.DebuggerStepThroughAttribute(),  _
 196      System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0")>  _
 197     Partial Public Class GetDataCentersCompletedEventArgs
 198         Inherits System.ComponentModel.AsyncCompletedEventArgs
 199
 200         Private results() As Object
 201
 202         Public Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
 203             MyBase.New(exception, cancelled, userState)
 204             Me.results = results
 205         End Sub
 206
 207         Public ReadOnly Property Result() As DataCenterServiceReference.DataCenter()
 208             Get
 209                 MyBase.RaiseExceptionIfNecessary
 210                 Return CType(Me.results(0),DataCenterServiceReference.DataCenter())
 211             End Get
 212         End Property
 213     End Class
 214
 215     <System.Diagnostics.DebuggerStepThroughAttribute(),  _
 216      System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0")>  _
 217     Partial Public Class DataCenterServiceClient
 218         Inherits System.ServiceModel.ClientBase(Of DataCenterServiceReference.IDataCenterService)
 219         Implements DataCenterServiceReference.IDataCenterService
 220
 221         Private onBeginGetDataCentersDelegate As BeginOperationDelegate
 222
 223         Private onEndGetDataCentersDelegate As EndOperationDelegate
 224
 225         Private onGetDataCentersCompletedDelegate As System.Threading.SendOrPostCallback
 226
 227         Public Sub New()
 228             MyBase.New
 229         End Sub
 230
 231         Public Sub New(ByVal endpointConfigurationName As String)
 232             MyBase.New(endpointConfigurationName)
 233         End Sub
 234
 235         Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As String)
 236             MyBase.New(endpointConfigurationName, remoteAddress)
 237         End Sub
 238
 239         Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As System.ServiceModel.EndpointAddress)
 240             MyBase.New(endpointConfigurationName, remoteAddress)
 241         End Sub
 242
 243         Public Sub New(ByVal binding As System.ServiceModel.Channels.Binding, ByVal remoteAddress As System.ServiceModel.EndpointAddress)
 244             MyBase.New(binding, remoteAddress)
 245         End Sub
 246
 247         Public Event GetDataCentersCompleted As System.EventHandler(Of GetDataCentersCompletedEventArgs)
 248
 249         Public Function GetDataCenters() As DataCenterServiceReference.DataCenter() Implements DataCenterServiceReference.IDataCenterService.GetDataCenters
 250             Return MyBase.Channel.GetDataCenters
 251         End Function
 252
 253         <System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced)>  _
 254         Public Function BeginGetDataCenters(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult Implements DataCenterServiceReference.IDataCenterService.BeginGetDataCenters
 255             Return MyBase.Channel.BeginGetDataCenters(callback, asyncState)
 256         End Function
 257
 258         <System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced)>  _
 259         Public Function EndGetDataCenters(ByVal result As System.IAsyncResult) As DataCenterServiceReference.DataCenter() Implements DataCenterServiceReference.IDataCenterService.EndGetDataCenters
 260             Return MyBase.Channel.EndGetDataCenters(result)
 261         End Function
 262
 263         Private Function OnBeginGetDataCenters(ByVal inValues() As Object, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
 264             Return Me.BeginGetDataCenters(callback, asyncState)
 265         End Function
 266
 267         Private Function OnEndGetDataCenters(ByVal result As System.IAsyncResult) As Object()
 268             Dim retVal() As DataCenterServiceReference.DataCenter = Me.EndGetDataCenters(result)
 269             Return New Object() {retVal}
 270         End Function
 271
 272         Private Sub OnGetDataCentersCompleted(ByVal state As Object)
 273             If (Not (Me.GetDataCentersCompletedEvent) Is Nothing) Then
 274                 Dim e As InvokeAsyncCompletedEventArgs = CType(state,InvokeAsyncCompletedEventArgs)
 275                 RaiseEvent GetDataCentersCompleted(Me, New GetDataCentersCompletedEventArgs(e.Results, e.Error, e.Cancelled, e.UserState))
 276             End If
 277         End Sub
 278
 279         Public Overloads Sub GetDataCentersAsync()
 280             Me.GetDataCentersAsync(Nothing)
 281         End Sub
 282
 283         Public Overloads Sub GetDataCentersAsync(ByVal userState As Object)
 284             If (Me.onBeginGetDataCentersDelegate Is Nothing) Then
 285                 Me.onBeginGetDataCentersDelegate = AddressOf Me.OnBeginGetDataCenters
 286             End If
 287             If (Me.onEndGetDataCentersDelegate Is Nothing) Then
 288                 Me.onEndGetDataCentersDelegate = AddressOf Me.OnEndGetDataCenters
 289             End If
 290             If (Me.onGetDataCentersCompletedDelegate Is Nothing) Then
 291                 Me.onGetDataCentersCompletedDelegate = AddressOf Me.OnGetDataCentersCompleted
 292             End If
 293             MyBase.InvokeAsync(Me.onBeginGetDataCentersDelegate, Nothing, Me.onEndGetDataCentersDelegate, Me.onGetDataCentersCompletedDelegate, userState)
 294         End Sub
 295     End Class
 296 End Namespace